0 CLS:SCREEN0,0,0:A$="DEMONSTRATION":FORT=1TOLEN(A$):FORX=24TO70STEP2:PLACET*2+5,X,0:ATTRB1,1:COLORRND*6+1:PRINTMID$(A$,T,1);:NEXTX,T:FORT=0TO5:SCREEN1:BEEP:SCREEN7:BEEP:NEXT:CLS:ATTRB0,0:LINE(0,159)-(320,159),1:FORT=0TO200:PLACERND*26,RND*150:COLORRND*6+1
1 PRINTA$;:NEXT:LOCATE7,20:COLOR5:PRINT"DEMO",,,,TAB(7)"SORTIE":PSET(5,20)" ",0,6:PSET(5,22)" ":COLOR7,0:P=169:FORT=0TO1STEP0:X=STRIG(0):PLACE2,P:PRINT"=>":A=STICK(0):P=P+(A=1ANDP>160)-(A=5ANDP<179):IFP@8=20ANDXTHENRUNELSEIFP@8=22ANDXTHENCLS:ENDELSENEXT